home *** CD-ROM | disk | FTP | other *** search
/ Over 1,000 Windows 95 Programs / Over 1000 Windows 95 Programs (Microforum) (Disc 1).iso / 0232 / setup.smm < prev    next >
Encoding:
INI File  |  1997-03-27  |  8.9 KB  |  761 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     
  5. [files]
  6. [charset]
  7.     82
  8.     ANSI (Windows, IBM CP 1252)
  9. [revisions]
  10.     0
  11. [prn]
  12.     PostScript Printer
  13. [port]
  14.     LPT1:
  15. [lang]
  16.     2
  17. [fldnames]
  18.     Field1
  19.     Field2
  20.     Field3
  21.     Field4
  22.     Field5
  23.     Field6
  24.     Field7
  25.     Field8
  26. [desc]
  27.     
  28.     
  29.     
  30.     
  31.     
  32.     816257812
  33.     9
  34.     797006269
  35.     78
  36.     2
  37.     0
  38.     0
  39.     0
  40.     0
  41.     
  42.     
  43.     
  44.     
  45.     
  46.     
  47.     1
  48. [fopts]
  49.     0
  50.     1
  51.     0
  52.     0
  53.     
  54.     
  55. [lnopts]
  56.     2
  57.     Body Text
  58.     1
  59. [docopts]
  60.     5
  61.     2
  62. [GramStyle]
  63.     
  64. [tag]
  65.     Body Text
  66.     2
  67.     [fnt]
  68.         Arial MT
  69.         240
  70.         0
  71.         16384
  72.     [algn]
  73.         1
  74.         1
  75.         216
  76.         0
  77.         0
  78.     [spc]
  79.         33
  80.         273
  81.         1
  82.         0
  83.         0
  84.         1
  85.         100
  86.     [brk]
  87.         4
  88.     [line]
  89.         8
  90.         0
  91.         1
  92.         0
  93.         1
  94.         1
  95.         1
  96.         10
  97.         10
  98.         1
  99.     [spec]
  100.         0
  101.         0
  102.         
  103.         0
  104.         1
  105.         1
  106.         0
  107.         16
  108.         0
  109.         0
  110.     [nfmt]
  111.         272
  112.         1
  113.         2
  114.         .
  115.         ,
  116.         </c>
  117.     Body Text
  118.     0
  119.     0
  120. [tag]
  121.     Body Single
  122.     3
  123.     [fnt]
  124.         TimesNewRomanPS
  125.         200
  126.         0
  127.         49152
  128.     [algn]
  129.         1
  130.         1
  131.         0
  132.         0
  133.         0
  134.     [spc]
  135.         33
  136.         273
  137.         1
  138.         0
  139.         0
  140.         1
  141.         100
  142.     [brk]
  143.         4
  144.     [line]
  145.         8
  146.         0
  147.         1
  148.         0
  149.         1
  150.         1
  151.         1
  152.         10
  153.         10
  154.         1
  155.     [spec]
  156.         0
  157.         0
  158.         
  159.         0
  160.         1
  161.         1
  162.         0
  163.         0
  164.         0
  165.         0
  166.     [nfmt]
  167.         272
  168.         1
  169.         2
  170.         .
  171.         ,
  172.         </c>
  173.     Body Single
  174.     0
  175.     0
  176. [tag]
  177.     Function
  178.     4
  179.     [fnt]
  180.         Arial MT
  181.         200
  182.         0
  183.         16385
  184.     [algn]
  185.         1
  186.         1
  187.         0
  188.         0
  189.         0
  190.     [spc]
  191.         33
  192.         244
  193.         1
  194.         0
  195.         0
  196.         1
  197.         100
  198.     [brk]
  199.         68
  200.     [line]
  201.         8
  202.         0
  203.         1
  204.         0
  205.         1
  206.         1
  207.         1
  208.         10
  209.         10
  210.         1
  211.     [spec]
  212.         0
  213.         1
  214.         
  215.         0
  216.         1
  217.         1
  218.         0
  219.         0
  220.         0
  221.         0
  222.     [nfmt]
  223.         272
  224.         1
  225.         2
  226.         .
  227.         ,
  228.         </c>
  229.     Body Text
  230.     0
  231.     0
  232. [lay]
  233.     Standard
  234.     516
  235.     [rght]
  236.         16833
  237.         11908
  238.         1
  239.         1440
  240.         1440
  241.         1
  242.         1440
  243.         1440
  244.         0
  245.         1
  246.         0
  247.         1
  248.         0
  249.         2
  250.         1
  251.         1440
  252.         10465
  253.         12
  254.         1
  255.         720
  256.         1
  257.         1440
  258.         1
  259.         2160
  260.         1
  261.         2880
  262.         1
  263.         3600
  264.         1
  265.         4320
  266.         1
  267.         5040
  268.         1
  269.         5760
  270.         1
  271.         6480
  272.         1
  273.         7200
  274.         1
  275.         7920
  276.         1
  277.         8640
  278.     [hrght]
  279.     [lyfrm]
  280.         1
  281.         11200
  282.         0
  283.         0
  284.         11908
  285.         1440
  286.         0
  287.         1
  288.         3
  289.         1 0 0 0 0 0 0
  290.         0
  291.         0
  292.         1
  293.     [frmlay]
  294.         1440
  295.         11908
  296.         1
  297.         1440
  298.         72
  299.         1
  300.         792
  301.         1440
  302.         0
  303.         1
  304.         0
  305.         1
  306.         1
  307.         0
  308.         1
  309.         1440
  310.         10465
  311.         1
  312.         3
  313.         9360
  314.     [txt]
  315. >
  316.     [frght]
  317.     [lyfrm]
  318.         1
  319.         13248
  320.         0
  321.         15393
  322.         11908
  323.         16833
  324.         0
  325.         1
  326.         3
  327.         1 0 0 0 0 0 0
  328.         0
  329.         0
  330.         2
  331.     [frmlay]
  332.         16833
  333.         11908
  334.         1
  335.         1440
  336.         792
  337.         1
  338.         15465
  339.         1440
  340.         0
  341.         1
  342.         0
  343.         1
  344.         1
  345.         0
  346.         1
  347.         1440
  348.         10465
  349.         2
  350.         2
  351.         4680
  352.         3
  353.         9360
  354.     [txt]
  355. >
  356. [elay]
  357. [l1]
  358.     0
  359. [pg]
  360.     2
  361.     49 0 40 0 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  362.     96 0 12 1025 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  363. [edoc]
  364. <:#278,9025>FUNCTION SetupAmiWeb()
  365.  
  366. <:#278,9025>
  367.  
  368. <:#278,9025>Win=GetWindowsDirectory$()
  369.  
  370. <:#278,9025>Ami=GetAmiDirectory$()
  371.  
  372. <:#278,9025>Macros=GetMacPath$()
  373.  
  374. <:#278,9025>Style=GetStylePath$()
  375.  
  376. <:#278,9025>Docs=GetDocPath$()
  377.  
  378. Icons="{Ami}icons\"
  379.  
  380. <:#278,9025>
  381.  
  382. <:#278,9025>
  383.  
  384. <:#556,9025>Message("Please send me a REAL postcard!!  See README.TXT","AmiWeb Setup")
  385.  
  386. <:#278,9025>File=FindFirst$("{Win}system\ole2nls.dll",0)
  387.  
  388. <:#278,9025>IF File="" 
  389.  
  390. <:#278,9025>    Message("You must install OLE2 first","AmiWeb Setup")
  391.  
  392. <:#278,9025>    EXIT FUNCTION
  393.  
  394. <:#278,9025>ENDIF
  395.  
  396. <:#278,9025>File=FindFirst$("{Ami}wn_sm2ht.exe",0)
  397.  
  398. <:#278,9025>IF File<<<;>""
  399.  
  400. <:#278,9025>    DOSDelFile("{Ami}wn_sm2ht.exe")
  401.  
  402. <:#278,9025>ENDIF
  403.  
  404. <:#278,9025>FillEdit(8000,Macros)
  405.  
  406. <:#278,9025>FillEdit(8001,Icons)
  407.  
  408. <:#278,9025>FillEdit(8002,Style)
  409.  
  410. <:#278,9025>FillEdit(8003,Docs)
  411.  
  412. <:#278,9025>
  413.  
  414. <:#278,9025>Box=DialogBox(".","Setup")
  415.  
  416. <:#278,9025>IF Box<<<;>1 
  417.  
  418. <:#278,9025>    EXIT FUNCTION
  419.  
  420. <:#278,9025>ENDIF
  421.  
  422. <:#278,9025>
  423.  
  424. <:#278,9025>Macros=GetDialogField$(8000)
  425.  
  426. <:#278,9025>Icons=GetDialogField$(8001)
  427.  
  428. <:#278,9025>Style=GetDialogField$(8002)
  429.  
  430. <:#278,9025>Docs=GetDialogField$(8003)
  431.  
  432. <:#278,9025>
  433.  
  434. <:#278,9025>MacroName=GetRunningMacroFile$()
  435.  
  436. <:#278,9025>Pos=LEN(MacroName)
  437.  
  438. <:#278,9025>WHILE "\" != MID$(MacroName, Pos, 1)
  439.  
  440. <:#278,9025>    Pos = Pos - 1
  441.  
  442. <:#278,9025>WEND
  443.  
  444. <:#278,9025>PathName = Left$(MacroName, Pos)
  445.  
  446. <:#278,9025>Entries=GetProfileString$("info","windows","{PathName}Setup.ini")
  447.  
  448. <:#278,9025>CALL CopyFiles(Win, Entries, PathName)
  449.  
  450. <:#278,9025>Entries=GetProfileString$("info","macros","{PathName}Setup.ini")
  451.  
  452. <:#278,9025>CALL CopyFiles(Macros, Entries, PathName)
  453.  
  454. <:#278,9025>Entries=GetProfileString$("info","styles","{PathName}Setup.ini")
  455.  
  456. <:#278,9025>CALL CopyFiles(Style, Entries, PathName)
  457.  
  458. <:#278,9025>Entries=GetProfileString$("info","icons","{PathName}Setup.ini")
  459.  
  460. <:#278,9025>CALL CopyFiles(Icons, Entries, PathName)
  461.  
  462. <:#278,9025>Entries=GetProfileString$("info","docs","{PathName}Setup.ini")
  463.  
  464. <:#278,9025>CALL CopyFiles(Docs, Entries, PathName)
  465.  
  466. <:#278,9025>Message("Installation Complete")
  467.  
  468. <:#278,9025>
  469.  
  470. <:#278,9025>END FUNCTION
  471.  
  472. <:#278,9025>
  473.  
  474. <:#278,9025>DIALOG    Setup
  475.  
  476. <:#278,9025>-2134376448    11    36    62    246    146    ""    ""    "AmiWeb Setup"
  477.  
  478. <:#278,9025>18    28    40    10    1000    1342177280    "static"    "Macros file"    0 
  479.  
  480. <:#278,9025>18    48    40    10    1001    1342177280    "static"    "SmartIcons"    0 
  481.  
  482. <:#278,9025>18    68    40    10    1002    1342177280    "static"    "Style Sheet"    0 
  483.  
  484. <:#278,9025>18    88    40    10    1003    1342177280    "static"    "Documents"    0 
  485.  
  486. <:#556,9025>26    6    130    10    1004    1342177280    "static"    "Destination directories for:"    0 
  487.  
  488. <:#278,9025>62    26    150    12    8000    1350631552    "edit"    ""    0 
  489.  
  490. <:#278,9025>62    46    150    12    8001    1350631552    "edit"    ""    0 
  491.  
  492. <:#278,9025>62    66    150    12    8002    1350631552    "edit"    ""    0 
  493.  
  494. <:#278,9025>62    86    150    12    8003    1350631552    "edit"    ""    0 
  495.  
  496. <:#278,9025>60    116    40    14    1    1342373889    "button"    "OK"    0 
  497.  
  498. <:#278,9025>130    116    40    14    2    1342373888    "button"    "Quit Setup"    0 
  499.  
  500. <:#278,9025>END DIALOG
  501.  
  502. <:#278,9025>
  503.  
  504. <:#278,9025>
  505.  
  506. <:#278,9025>FUNCTION CopyFiles(Directory, Entries, PathName)
  507.  
  508. <:#278,9025>
  509.  
  510. <:#278,9025>IF Right$(Directory,1)<<<;>"\"
  511.  
  512. <:#278,9025>    Directory="{Directory}\"
  513.  
  514. <:#278,9025>ENDIF
  515.  
  516. <:#278,9025>Pos=1
  517.  
  518. <:#278,9025>WHILE Pos<<LEN(Entries)
  519.  
  520. <:#278,9025>    Pos2=Pos
  521.  
  522. <:#278,9025>    WHILE (" "<<<;>MID$(Entries, Pos, 1)) AND(Pos<<LEN(Entries))
  523.  
  524. <:#278,9025>        Pos=Pos+1
  525.  
  526. <:#278,9025>    WEND
  527.  
  528. <:#278,9025>    IF(Pos<<LEN(Entries)) 
  529.  
  530. <:#278,9025>        Pos=Pos+(-1)
  531.  
  532. <:#278,9025>    ENDIF
  533.  
  534. <:#278,9025>    Files=MID$(Entries, Pos2, (Pos-Pos2)+1)
  535.  
  536. <:#278,9025>    File=FindFirst$("{PathName}{Files}",0)
  537.  
  538. <:#278,9025>    WHILE File<<<;>""
  539.  
  540. <:#278,9025>        IF DOSCopyFile("{PathName}{File}","{Directory}{File}") <<<;> 1
  541.  
  542. <:#278,9025>            Message("Unable to copy {File} to {Directory}")
  543.  
  544. <:#278,9025>        ENDIF
  545.  
  546. <:#278,9025>        File=FindNext$()
  547.  
  548. <:#278,9025>    WEND
  549.  
  550. <:#278,9025>    Pos=Pos+2
  551.  
  552. <:#278,9025>WEND
  553.  
  554. <:#278,9025>END FUNCTION
  555.  
  556. >
  557.  
  558. [Embedded]
  559. 00006573
  560. >
  561. [macsum] 3
  562. SetupAmiWeb 0 0 13 0
  563. Setup 1237 0 -1 55
  564. CopyFiles 1861 3 5 71
  565. [macse]
  566. 14 SetupAmiWeb
  567. 0 1288
  568. 13
  569. 8 1
  570. 0 798
  571. 13
  572. 8 2
  573. 0 295
  574. 13
  575. 8 3
  576. 0 269
  577. 13
  578. 8 4
  579. 0 268
  580. 13
  581. 8 5
  582. 7 "{2}icons\"
  583. 8 6
  584. 0 3 "Please send me a REAL postcard!!  See README.TXT" "AmiWeb Setup"
  585. 0 280 "{1}system\ole2nls.dll" 0
  586. 13
  587. 8 7
  588. 6 7
  589. 7 ""
  590. 18 0
  591. 11 00000322
  592. 0 3 "You must install OLE2 first" "AmiWeb Setup"
  593. 6 0
  594. 15
  595. 9
  596. 0 280 "{2}wn_sm2ht.exe" 0
  597. 13
  598. 8 7
  599. 6 7
  600. 7 ""
  601. 18 1
  602. 11 00000413
  603. 0 779 "{2}wn_sm2ht.exe"
  604. 0 31 8000 "{3}"
  605. 0 31 8001 "{6}"
  606. 0 31 8002 "{4}"
  607. 0 31 8003 "{5}"
  608. 0 26 "." "Setup"
  609. 13
  610. 8 8
  611. 6 8
  612. 5 1
  613. 18 1
  614. 11 00000549
  615. 6 0
  616. 15
  617. 9
  618. 0 27 8000
  619. 13
  620. 8 3
  621. 0 27 8001
  622. 13
  623. 8 6
  624. 0 27 8002
  625. 13
  626. 8 4
  627. 0 27 8003
  628. 13
  629. 8 5
  630. 0 802
  631. 13
  632. 8 9
  633. 0 14 "{9}"
  634. 13
  635. 8 10
  636. 7 "\"
  637. 0 15 "{9}" "{10}" 1
  638. 13
  639. 18 1
  640. 11 00000753
  641. 6 10
  642. 5 1
  643. 3 1
  644. 8 10
  645. 10 00000667
  646. 0 806 "{9}" "{10}"
  647. 13
  648. 8 11
  649. 0 286 "info" "windows" "{11}Setup.ini"
  650. 13
  651. 8 12
  652. 16 CopyFiles "{1}" "{12}" "{11}"
  653. 0 286 "info" "macros" "{11}Setup.ini"
  654. 13
  655. 8 12
  656. 16 CopyFiles "{3}" "{12}" "{11}"
  657. 0 286 "info" "styles" "{11}Setup.ini"
  658. 13
  659. 8 12
  660. 16 CopyFiles "{4}" "{12}" "{11}"
  661. 0 286 "info" "icons" "{11}Setup.ini"
  662. 13
  663. 8 12
  664. 16 CopyFiles "{6}" "{12}" "{11}"
  665. 0 286 "info" "docs" "{11}Setup.ini"
  666. 13
  667. 8 12
  668. 16 CopyFiles "{5}" "{12}" "{11}"
  669. 0 3 "Installation Complete"
  670. 6 0
  671. 15
  672. 9
  673. DIALOG Setup
  674. -2134376448 11 36 62 246 146 "" "" "AmiWeb Setup" 
  675. 18 28 40 10 1000 1342177280 "static" "Macros file" 0 
  676. 18 48 40 10 1001 1342177280 "static" "SmartIcons" 0 
  677. 18 68 40 10 1002 1342177280 "static" "Style Sheet" 0 
  678. 18 88 40 10 1003 1342177280 "static" "Documents" 0 
  679. 26 6 130 10 1004 1342177280 "static" "Destination directories for:" 0 
  680. 62 26 150 12 8000 1350631552 "edit" "" 0 
  681. 62 46 150 12 8001 1350631552 "edit" "" 0 
  682. 62 66 150 12 8002 1350631552 "edit" "" 0 
  683. 62 86 150 12 8003 1350631552 "edit" "" 0 
  684. 60 116 40 14 1 1342373889 "button" "OK" 0 
  685. 130 116 40 14 2 1342373888 "button" "Quit Setup" 0 
  686. 14 CopyFiles
  687. 0 807 "{0}" 1
  688. 13
  689. 7 "\"
  690. 18 1
  691. 11 00000074
  692. 7 "{0}\"
  693. 8 0
  694. 5 1
  695. 8 4
  696. 6 4
  697. 0 14 "{1}"
  698. 13
  699. 18 5
  700. 11 00000571
  701. 6 4
  702. 8 5
  703. 7 " "
  704. 0 15 "{1}" "{4}" 1
  705. 13
  706. 18 1
  707. 6 4
  708. 0 14 "{1}"
  709. 13
  710. 18 5
  711. 1 1
  712. 11 00000249
  713. 6 4
  714. 5 1
  715. 3 0
  716. 8 4
  717. 10 00000134
  718. 6 4
  719. 0 14 "{1}"
  720. 13
  721. 18 5
  722. 11 00000310
  723. 6 4
  724. 5 -1
  725. 3 0
  726. 8 4
  727. 6 4
  728. 6 5
  729. 3 1
  730. 5 1
  731. 3 0
  732. 0 15 "{1}" "{5}" [X]
  733. 13
  734. 8 6
  735. 0 280 "{2}{6}" 0
  736. 13
  737. 8 7
  738. 6 7
  739. 7 ""
  740. 18 1
  741. 11 00000538
  742. 0 803 "{2}{7}" "{0}{7}"
  743. 13
  744. 5 1
  745. 18 1
  746. 11 00000509
  747. 0 3 "Unable to copy {7} to {0}"
  748. 0 281
  749. 13
  750. 8 7
  751. 10 00000393
  752. 6 4
  753. 5 2
  754. 3 0
  755. 8 4
  756. 10 00000084
  757. 6 3
  758. 15
  759. 9
  760. 00006598
  761.